inherited dm_produtoreserva: Tdm_produtoreserva
  OldCreateOrder = True
  Left = 501
  Top = 284
  Height = 353
  Width = 428
  inherited sqlConsulta: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  r.cod_reserva,'
      '  r.lig_cod_empresa,'
      '  r.lig_cod_produto,'
      '  r.contato,'
      '  r.contato_telefone,'
      '  r.quantidade,'
      '  r.data_vencimento,'
      '  r.data_cad,'
      '  r.data_alteracao,'
      '  r.situacao,'
      '  case'
      '    when r.situacao = '#39'True'#39' then '#39'Ativa'#39' else '#39'Inativa'#39
      '  end as situacao_desc,'
      '  a.descricao ||'#39'/'#39'|| a.apresentacao as produto,'
      '  a.cod_barras,'
      '  b.descricao_multiempresa as empresa'
      'from PRODUTO_RESERVA r'
      'left join produto a on (a.cod_produto = r.lig_cod_produto)'
      'left join empresa b on (b.cod_empresa = r.lig_cod_empresa)'
      'where r.lig_cod_empresa = :empresa')
  end
  inherited cdsConsulta: TClientDataSet
    object cdsConsultaCOD_RESERVA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_RESERVA'
      Required = True
    end
    object cdsConsultaLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsConsultaLIG_COD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsConsultaCONTATO: TStringField
      FieldName = 'CONTATO'
      Required = True
      Size = 100
    end
    object cdsConsultaCONTATO_TELEFONE: TStringField
      Alignment = taCenter
      FieldName = 'CONTATO_TELEFONE'
    end
    object cdsConsultaQUANTIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object cdsConsultaDATA_VENCIMENTO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_VENCIMENTO'
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 201
    end
    object cdsConsultaCOD_BARRAS: TStringField
      Alignment = taCenter
      FieldName = 'COD_BARRAS'
    end
    object cdsConsultaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 50
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_produto_reserva,1)'
      'FROM RDB$DATABASE')
  end
  inherited cdsRegistro: TClientDataSet
    object cdsRegistroCOD_RESERVA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_RESERVA'
      Required = True
    end
    object cdsRegistroLIG_COD_EMPRESA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsRegistroLIG_COD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsRegistroCONTATO: TStringField
      FieldName = 'CONTATO'
      Required = True
      Size = 100
    end
    object cdsRegistroCONTATO_TELEFONE: TStringField
      Alignment = taCenter
      FieldName = 'CONTATO_TELEFONE'
    end
    object cdsRegistroQUANTIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsRegistroDATA_VENCIMENTO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_VENCIMENTO'
    end
    object cdsRegistroDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'reserva'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  p.cod_reserva,'
      '  p.lig_cod_empresa,'
      '  p.lig_cod_produto,'
      '  p.contato,'
      '  p.contato_telefone,'
      '  p.quantidade,'
      '  p.situacao,'
      '  p.data_vencimento,'
      '  p.data_cad,'
      '  p.data_alteracao'
      'from PRODUTO_RESERVA p'
      'where p.cod_reserva = :reserva')
  end
  object spReservaCancelar: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_EMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'PRODUTO_RESERVA_CANCELAR'
    Left = 251
    Top = 20
  end
end
